www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/saveclientinfo.asp
<!-- #include file="config.asp" --> <% if session("gotclientinfo")<>true then Dim cn Dim os,browser,screenwidth,screenheight,sourceaddr 'Get Parameters os=Request.QueryString("sys") browser=Request.QueryString("brow") screenwidth=Request.QueryString("sw") screenheight=Request.QueryString("sh") sourceaddr=Request.QueryString("src") 'Verify Parameters if len(os)>25 then os=left(os,25) if os="" then os="未知" if len(browser)>16 then browser=left(browser,16) if browser="" then browser="未知" if isnumeric(screenwidth)=false or len(cstr(screenwidth))>9 then screenwidth=0 else screenwidth=abs(clng(screenwidth)) if isnumeric(screenheight)=false or len(cstr(screenheight))>9 then screenheight=0 else screenheight=abs(clng(screenheight)) if screenwidth=0 or screenheight=0 then screenwidth=0 screenheight=0 end if if len(sourceaddr)>50 then sourceaddr=left(sourceaddr,50) if sourceaddr="" then sourceaddr="收藏夹或手动输入" 'Filter Parameters os=replace(replace(os,"'","''"),"[","[[]") browser=replace(replace(browser,"'","''"),"[","[[]") sourceaddr=replace(replace(sourceaddr,"'","''"),"[","[[]") 'Save Parameters set cn=server.CreateObject("ADODB.Connection") CreateConn cn,dbtype cn.Execute "INSERT INTO stats_clientinfo(os,browser,screenwidth,screenheight,timesect,sourceaddr) VALUES('" &os& "','" &browser& "'," &screenwidth& "," &screenheight& ",#" &now()& "#,'" &sourceaddr& "')",,1 'Got Complete session("gotclientinfo")=true end if %>